home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-08-19 | 73.6 KB | 2,548 lines |
- ; $VER: AHI Install 4.11 (13.8.97)
- ; Description: Installer script for the AHI audio system (© 1996, 1997 Martin Blom).
- ; Done my Martin Blom, partly based on Teemu Suikki's install script.
- ; Public domain.
-
- (set #complete 0)
- (set #completeadd (/ 1000 35)) ; There are 35 complete statements!
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (set #osversion (/ (getversion "exec.library" (resident)) 65536))
-
- ;**
- ;** All the strings
- ;**
-
- (set #t_welcome (cat
- " Welcome to the AHI installation. AHI is a retargetable"
- " audio systems that can be used with both the built-in"
- " sound chip (Paula) and several sound cards. This is version"
- " 4."
- ))
- (set #t_oldinstaller (cat
- " You have an old version of the Installer. I'll probably"
- " need version 43.3 or greater. You can continue anyway"
- " but there is no guarantee it will work as it's supposed"
- " to do.\n"
- " Do you wish to continue anyway?"
- ))
- (set #t_oldinstallerhelp (cat
- " The version of Installer you use is too old. You can"
- " find a more recent version on the Internet, for example"
- " on Aminet, in the util/misc directory. The current"
- " file name is \"Installer-43_3.lha\":\n"
- " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
-
- ))
- (set #t_installaborted "Installation aborted.")
-
- (set #t_installing "Installing ")
- (set #t_installingdocs "Installing developer documentation")
- (set #t_installingincs "Installing include files")
- (set #t_installingsrc "Installing example source code")
- (set #t_nofiles "No files to install.")
-
- (set #t_nohelp "No help available.")
-
- (set #t_parts "Which parts of AHI do you wish to install?")
- (set #t_system "System files")
- (set #t_prefs "Preferences program")
- (set #t_audio "The AUDIO handler");
- (set #t_userdoc "User's documentation")
- (set #t_a-developer "Application developer files")
- (set #t_d-developer "Driver developer files")
- (set #t_userhelp (cat
- "System files:\n"
- " The system files. This is the heart of AHI and must be"
- " if for any of the other components to work.\n\n"
- "Preferences program:\n"
- " The preference program. Can be used to change many options"
- " in AHI. This part of AHI requires BGUI or MUI to be installed.\n\n"
- "The AUDIO handler:\n"
- " Allows you to play and record samples with the 'copy'"
- " command.\n\n"
- "User's documentation:\n"
- " An AmigaGuide® file descibing the AHI audio system and"
- " its components.\n\n"
- ))
- (set #t_devhelp (cat
- "Application developer files:\n"
- " Autodocs, include files, example source code etc."
- " Required if you wish to use AHI in your own applications.\n\n"
- "Driver developer files:\n"
- " Autodocs, example source code etc. Only required"
- " if you plan to write hardware drivers for sound"
- " cards.\n\n"
- ))
-
- (set #t_gui (cat
- " Which version of the preferences program would you like"
- " to install?"
- ))
- (set #t_guihelp (cat
- " Please select which GUI system you prefer.\n\n"
- ))
- (set #t_guibgui "BGUI version")
- (set #t_guimui "MUI version")
-
- (set #t_icon "Which icon do you want to install?")
- (set #t_iconstd "Plain 4 colour icon")
- (set #t_iconmwb "8 colour MagicWB icon")
- (set #t_iconhelp (cat
- " Select which icon you would like to use for the prefernces"
- " program. The MagicWB icon was designed by Erol Ismael.\n\n"
- ))
-
- (set #t_languages (cat
- "Which languages do you want to install?"
- " The built-in language is English."))
- (set #t_languageshelp (cat
- " If your language is not in the list, the author of AHI"
- " would be very happy if you made a translation. Edit the files"
- " User/Catalogs/ahi.ct and User/Catalogs/ahiprefs.ct"
- " and send it to this address:\n"
- " lcs@lysator.liu.se\n"
- " It may be a wise move to ask first, just to make sure nobody"
- " else is working on a translation to your language.\n\n"
- ))
-
- (set #t_drivers (cat
- "Which AHI drivers you want to install?"
- " Do not install drivers for sound cards you don't have."))
- (set #t_drivershelp (cat
- "Delfina:\n"
- " Delfina Classic/Lite sound card.\n\n"
- "Filesave:\n"
- " Read/Write sample data to a file.\n\n"
- "Melody MPEG:\n"
- " Melody MPEG sound card.\n\n"
- "Paula:\n"
- " Regular Amiga sound hardware.\n\n"
- "Prelude:\n"
- " Prelude sound card.\n\n"
- "Toccata:\n"
- " Toccata sound card.\n\n"
- "Wavetools:\n"
- " Wavetools sound card.\n\n"
- ))
-
- (set #t_CPUver "Which version of the binaries do you wish to install?")
- (set #t_CPUverhelp (cat
- " 68020-optimized binaries are much faster, and often also"
- " smaller than plain 68000 versions. In the case of AHI,"
- " the 68000 versions have less features and reduced sound"
- " quality. It is strongly suggested that you use the"
- " 68020 versions of the binaries.\n"
- " The 68060 version avoids the slow 64 bit divisions. Don't"
- " install this version unless you own a 68060 CPU!\n\n"
- ))
-
- (set #t_devfiles "Which developer files do you wish to install?")
- (set #t_devdocs "Autodocs and AHI Developer's Guide")
- (set #t_source "Example source code")
- (set #t_asm "Assembler include files")
- (set #t_cgen "Generic C include files")
- (set #t_e "E module files")
- (set #t_fd "FD files")
- (set #t_ade "Extra ADE gcc include files")
- (set #t_sas "Extra SAS/C (and DICE) include files")
- (set #t_storm "Extra StormC include files")
- (set #t_devfileshelp (cat
- "Autodocs and AHI Developer's Guide:\n"
- " The autodocs and rules for programming AHI.\n\n"
- "Example source code:\n"
- " Some example programs, most of them are written in C, but"
- " there are some assembler sources too.\n\n"
- "Assembler include files:\n"
- " Include files needed if you program in assembler.\n\n"
- "Generic C include files:\n"
- " Include files needed if you program in C.\n\n"
- "E module files:\n"
- " The module files to use with AmigaE.\n\n"
- "FD files:\n"
- " Can be used with the 'lvo' tool, or when you build a"
- " hardware driver written in C.\n\n"
- "Extra ADE gcc include files:\n"
- " The special include files for gcc (inline, proto etc).\n\n"
- "Extra SAS/C (and DICE) include files:\n"
- " The special include files for SAS/C (pragmas, proto etc)."
- " They work with DCC too, but with no tag calls.\n\n"
- "Extra StormC include files:\n"
- " The special include files for StormC (pragma, proto etc).\n\n"
- ))
-
-
- (set #t_nodevs
- "Cannot find the Devs: assign. Try a higher userlevel instead.")
- (set #t_noc
- "Cannot find the C: assign. Try a higher userlevel instead.")
- (set #t_noprefs
- "Cannot find the Sys:Prefs directory. Try a higher userlevel instead.")
- (set #t_nol
- "Cannot find the L: assign. Try a higher userlevel instead.")
- (set #t_devspath "Where do you want to install the system files?")
- (set #t_devspathhelp (cat
- " The directory you select must be a part of your Devs: assign."
- " The installer will copy ahi.device, the hardware drivers"
- " and the audio mode description files to this directory."
- " Subdirectories for the drivers and mode files will be"
- " created.\n\n"
- ))
- (set #t_cpath "Where do you want to install AddAudioModes?")
- (set #t_cpathhelp (cat
- " AddAudioModes is a small command line utility that can"
- " be used to manipulate the database which contains the"
- " audio modes (much like the screenmode database)."
- " CLI programs are normally located in the C: directory.\n\n"
- ))
-
-
- (set #t_localepath "Where do you want to install the catalogs?")
- (set #t_localepathhelp (cat
- " The directory you select must be a part of your Locale: assign."
- " The installer will copy the catalogs you have selected to"
- " subdirectories in this directory.\n\n"
- ))
-
- (set #t_prefspath "Where do you want to install the preferences program?")
- (set #t_prefspathhelp (cat
- " The preferences program lets you configure AHI for your particular"
- " configuration. You can select which sound hardware you prefer"
- " to use, which physical inputs and outputs you wish to use"
- " etc. Preferences programs are normally located in the"
- " Sys:Prefs/ directory.\n"
- " This program requires BGUI or MUI, depending on which version"
- " you are installing.\n\n"
- ))
-
- (set #t_audiohelp (cat
- " The AUDIO handler is used to mount a device called AUDIO:. By"
- " copying files to and from this device, you can play and record"
- " raw sample data, IFF-AIFF or IFF-AIFC files.\n\n"
- ))
-
- (set #t_lpath "Where do you want to install the AUDIO handler?")
- (set #t_lpathhelp (cat
- #t_audiohelp
- " Handlers are normally located in the L: directory.\n\n"
- ))
-
- (set #t_dosdevpath "Where do you want to install the AUDIO mount entry?")
- (set #t_dosdevpathhelp (cat
- #t_audiohelp
- " Mount entries are normally located in the Devs:DOSDrivers"
- " directory if they are to be mounted at boot time. If not, they"
- " probably are in the SYS:Storage/DOSDrivers directory.\n\n"
- ))
-
- (set #t_dosdriver "Do you want the handler to be activated at boot time?")
- (set #t_dosdriverhelp (cat
- " If you want, the AUDIO: device can be made avaliable as soon as"
- " your system has been started. This saves you the effort of"
- " having to mount it manually when you want to use it. It does"
- " not require much memory to mount the device and it is therefor"
- " suggested that you select 'Yes'.\n\n"
- ))
-
- (set #t_userdocpath "Where do you want to install the user documentation?")
- (set #t_userdocpathhelp (cat
- " This is an AmigaGuide® file descibing the AHI audio system"
- " and its components.\n\n"
- ))
-
- (set #t_srcpath (cat
- " Where do you want to install the example source code?"
- " A directory called AHI will be created there."
- ))
- (set #t_srcpathhelp (cat
- " The example sources, in both C and assembler, will be"
- " stored in a subdirectory called AHI. Any files currently"
- " present in the AHI directory will be deleted!\n\n"
- ))
- (set #t_oldsrc (cat
- " There is already a directory called AHI here."
- " All files in it will be deleted."
- ))
-
- (set #t_devdocspath " Where do you want to store the developer documentation?")
- (set #t_devdocspathhelp (cat
- " The installer will place the autodoc files and the"
- " AHI Developer's Guide in the directory you select.\n\n"
- ))
-
- (set #t_aincpath " Where are your assembler include files located?")
- (set #t_aincpathhelp (cat
- " The installer will place the assembler include files"
- " in subdirectories (lvo, devices and libraries)"
- " of the one you select.\n\n"
- ))
-
- (set #t_fdpath " Where do you keep your FD-files?")
- (set #t_fdpathhelp (cat
- " FD-files are files describing a library's or a device's"
- " functions. They can be used with the 'lvo' program, and"
- " can also be useful if you write hardware drivers.\n\n"
- ))
-
- (set #t_cincpath " Where are your C include files located?")
- (set #t_cincpathhelp (cat
- " The installer will place the generic C include files"
- " in subdirectories (clib, devices and libraries)"
- " of the one you select.\n\n"
- ))
-
- (set #t_emodpath " Where are your E module files located?")
- (set #t_emodpathhhelp (cat
- " The installer will place the E module files in the directory"
- " and in subdirectories (devices and libraries)"
- " of the one you select.\n\n"
- ))
-
- (set #t_adeincpath " Where do you want to place the ADE gcc include files?")
- (set #t_adeincpathhelp (cat
- " gcc needs some extra files to find out which registers"
- " to use when calling AHI functions. That information is"
- " located in these files, which will be copied to the"
- " inline, pragmas and proto directories.\n\n"
- ))
-
- (set #t_sasincpath " Where do you want to place the SAS/C (and DICE) include files?")
- (set #t_sasincpathhelp (cat
- " SAS/C (and DICE) needs some extra files to find out which registers"
- " to use when calling AHI functions. That information is"
- " located in these files, which will be copied to the"
- " pragmas and proto directories.\n\n"
- ))
-
- (set #t_stormincpath " Where do you want to place the StormC include files?")
- (set #t_stormincpathhelp (cat
- " StormC needs some extra files to find out which registers"
- " to use when calling AHI functions. That information is"
- " located in these files, which will be copied to the"
- " pragma and proto directories.\n\n"
- ))
-
- (set #t_ahidevhelp (cat
- " ahi.device is the heart of the AHI"
- " audio system. This is the only part"
- " that other programs knows anything about.\n\n"
- ))
-
- (set #t_runaddmodes (cat
- " About to run AddAudioModes to recreate"
- " the audio modes database."
- ))
-
-
- (set #t_overwritemode1
- " There is already a copy of the audio mode descriptor ")
- (set #t_overwritemode2 " present in ")
- (set #t_overwritemode3 (cat
- ".\n\n"
- " Do you want to overwrite it?"
- " All changes you have done to to it will be lost!"
- ))
-
-
- (if (= @language "srpski")
- ( ; Translated by Ljubomir Jankovic <lurch@afrodita.rcub.bg.ac.yu>
- (set #t_welcome (cat
- " Dobrodoãli u AHI instalaciju. AHI je retargetable"
- " audio sistem koji moäe biti koriãáen sa ugraâenim"
- " zvuànim àipom (Paula) i viãe zvuànih kartica."
- " Ovo je verzija 4."
- ))
- (set #t_oldinstaller (cat
- " Vi imate staru verziju Installer-a. Verovatno áe mi"
- " trebati verzija 43.3 ili viãa. Moäete nastaviti, ali"
- " nema garancije da áe sve raditi kako je predviâeno.\n"
- " Da li stvarno äelite da nastavite?"
- ))
- (set #t_oldinstallerhelp (cat
- " Verzija Installer-a koju koristite previãe stara. Moäete"
- " naái najnoviju verziju na Internetu, na primer"
- " na Aminet-u, u direktorijumu util/misc. Trenutno ime"
- " fajla je \"Installer-43_3.lha\":\n"
- " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
-
- ))
- (set #t_installaborted "Instalacija prekinuta.")
-
- (set #t_installing "Instaliram ")
- (set #t_installingdocs "Instaliram dokumentaciju za programere")
- (set #t_installingincs "Instaliram include fajlove")
- (set #t_installingsrc "Instaliram primere izvornog koda")
- (set #t_nofiles "Nema fajlova za instaliranje.")
-
- (set #t_nohelp "Pomoá nije dostupna.")
-
- (set #t_parts "Koje delove AHI-ja äelite de instalirate?")
- (set #t_system "Sistemske fajlove")
- (set #t_prefs "Program za podeãavanja")
- (set #t_audio "AUDIO hendler");
- (set #t_userdoc "Korisniàka dokumentacija")
- (set #t_a-developer "Fajlovi za razvoj aplikacija")
- (set #t_d-developer "Fajlovi za razvoj drajvera")
- (set #t_userhelp (cat
- "Sistemski fajlovi:\n"
- " Ovo je srce AHI-ja i mora postojati"
- " da bi radile ostale komponente.\n\n"
- "Program za podeãavanja:\n"
- " Moäe se koristiti za podeãavanje mnogih opcija"
- " AHI-ja. Ovaj deo AHI-ja zahteva da se instalira BGUI.\n\n"
- "AUDIO hendler:\n"
- " Omoguáava Vam da puãtate i snimate semplove komandom"
- " 'copy'.\n\n"
- "Korisniàka dokumentacija:\n"
- " AmigaGuide® fajl koji opisuje AHI audio sistem i"
- " njegove komponente.\n\n"
- ))
- (set #t_devhelp (cat
- "Fajlovi za razvoj aplikacija:\n"
- " Autodokovi, include fajlovi, primeri izvornog koda itd."
- " Oni su neophodni ako äelite da koritite AHI u svoji aplikacijama.\n\n"
- "Fajlovi za razvoj drajvera:\n"
- " Autodokovi, primeri izvornog koda itd. Potrebni su"
- " samo ako planirate da razvijate hardverske drajvere za"
- " zvuàne kartice.\n\n"
- ))
-
-
- (set #t_languages (cat
- "Koje jezike äelite da instalirate?"
- " Ugraâeni jezik je Engleski."))
- (set #t_languageshelp (cat
- " Ako se Vaã jezik ne nalazi na listi, autor AHI-ja"
- " bi bio veoma sreáan, ako bi napravili prevod. Promenite fajlove"
- " User/Catalogs/NewCatalog.ct i User/Catalogs/NewPrefsCatalog.ct"
- " i poãaljite na ovu adresu:\n"
- " lcs@lysator.liu.se\n\n"
- ))
-
- (set #t_drivers (cat
- "Koje AHI drajvere äelite da instalirate?"
- " Najbolje je da instalirate samo drajvere koji su Vam potrebni."))
- (set #t_drivershelp (cat
- "Delfina:\n"
- " Delfina Classic/Lite zvuàna kartica.\n\n"
- "Filesave:\n"
- " Àitanje/zapis zvuànih podataka u fajl.\n\n"
- "Melody MPEG:\n"
- " Melody MPEG zvuàna kartica.\n\n"
- "Paula:\n"
- " Obiàan Amigin zvuàni hardver.\n\n"
- "Prelude:\n"
- " Prelude zvuàna kartica.\n\n"
- "Toccata:\n"
- " Toccata zvuàna kartica.\n\n"
- "Wavetools:\n"
- " Wavetools zvuàna kartica.\n\n"
- ))
- (set #t_CPUver "Koju verziju programskih fajlova äelite da instalirate?")
- (set #t_CPUverhelp (cat
- " Fajlovi optimizovani za 68020 su bräi, i obiàno"
- " manji nego njihove 68000 verzije. U sluàaju AHI-ja,"
- " verzije za 68000 imaju manje moguánosti i smanjen"
- " kvalitet zvuka. Zaista Vam preporuàujem da instalirate"
- " verzije fajlova za 68020.\n"
- " Verzija za 68060 izbegava sporo 64-vorobitno deljenje. Nemojte"
- " instalirati ovu verziju ako nemate 68060 procesor!\n\n"
- ))
-
- (set #t_devfiles "Koje programerske fajlove äelite da instalirate?")
- (set #t_devdocs "Autodokove i AHI Vodià za programere")
- (set #t_source "Primeri izvornog koda")
- (set #t_asm "Include fajlove za asembler")
- (set #t_cgen "Opãte include fajlove za C")
- (set #t_e "E module")
- (set #t_fd "FD fajlove")
- (set #t_ade "Dodatne ADE gcc include fajlove")
- (set #t_sas "Dodatne SAS/C (i DICE) include fajlove")
- (set #t_storm "Dodatne StormC include fajlove")
- (set #t_devfileshelp (cat
- "Autodokovi i AHI Vodià za programere:\n"
- " Autodokovi i pravila za programiranje AHI-ja.\n\n"
- "Primeri izvornog koda:\n"
- " Neki programi za primer, veáina napisan u C-u, ali ima"
- " i neãto izvornog koda u asembleru.\n\n"
- "Include fajlovi za asembler:\n"
- " Include fajlovi koji su potrebni ako programirate u asembleru.\n\n"
- "Opãti include fajlovi za C:\n"
- " Include fajlovi koji su potrebni ako programirate u C-u.\n\n"
- "E moduli:\n"
- " Moduli za koriãáenje u Amiga E-u.\n\n"
- "FD fajlovi:\n"
- " Mogu se koristiti sa programom 'lvo', ili kada pravite"
- " hardverski drajver napisan u C-u.\n\n"
- "Dodatni ADE gcc include fajlovi:\n"
- " Specijalni include fajlovi za gcc (inline, proto itd.).\n\n"
- "Dodatni SAS/C (i DICE) include fajlovi:\n"
- " Specijalni include fajlovi za SAS/C (pragma, proto itd.)."
- " Rade i sa DCC-om, ali bez poziva tag-ova.\n\n"
- "Dodatni StormC include fajlovi:\n"
- " Specijalni include fajlovi za StormC (pragma, proto itd.).\n\n"
- ))
-
-
- (set #t_nodevs
- "Ne mogu da naâem Devs: asajn. Pokuãajte viãi korisniàki nivo.")
- (set #t_noc
- "Ne mogu da naâem C: asajn. Pokuãajte viãi korisniàki nivo.")
- (set #t_noprefs
- "Ne mogu da naâem Sys:Prefs directory. Pokuãajte viãi korisniàki nivo.")
- (set #t_nol
- "Ne mogu da naâem L: asajn. Pokuãajte viãi korisniàki nivo.")
- (set #t_devspath "Gde äelite da instalirate sistemske fajlove?")
- (set #t_devspathhelp (cat
- " Direktorijum koji odaberete mora biti deo Vaãeg Devs: asajna."
- " Installer áe kopirati ahi.device, hardverske drajvere"
- " i fajlove sa opisima audio modova u ovaj direktorijum."
- " Poddirektorijumi za drajvere i fajlove sa opisima modova"
- " áe biti napravljeni.\n\n"
- ))
- (set #t_cpath "Gde äelite da instalirate AddAudioModes?")
- (set #t_cpathhelp (cat
- " AddAudioModes je mali CLI program koji se moäe koristiti"
- " za manipulaciju baze podataka koja sadräi audio modove"
- " (vrlo sliàno bazi podataka sa moguáim rezolucijama ekrana)."
- " CLI programi se obiàno nalaze u C: direktorijumu.\n\n"
- ))
-
-
- (set #t_localepath "Gde äelite da instalirate kataloge?")
- (set #t_localepathhelp (cat
- " Direktorijum koji odaberete mora biti deo Locale: asajna."
- " Installer áe kopirati kataloge koje odaberete u"
- " poddirektorijume u ovom direktorijumu.\n\n"
- ))
-
- (set #t_prefspath "Gde äelite da instalirate program za podeãavanja?")
- (set #t_prefspathhelp (cat
- " Program za podeãavanja Vam omoguáava da podesite AHI vaãoj"
- " konkretnoj konfiguraciji. Moäete odabrati koji zvuàni hardver"
- " äelite da koristite, koje fiziàke ulaze i izlaze äelite da"
- " koritite itd. Programi za podeãavanja se obiàno nalaze u"
- " Sys:Prefs/ direktorijumu.\n"
- " Ovaj program zahteva BGUI biblioteku.\n\n"
- ))
-
- (set #t_audiohelp (cat
- " AUDIO hendler se koristi za mount-ovanje AUDIO: ureâaja. Kopirajuái"
- " fajlove na i sa ureâaja, moäete puãtati i snimati sirove zvuàne"
- " podatke, IFF-AIFF ili IFF-AIFC fajlove.\n\n"
- ))
-
- (set #t_lpath "Gde äelite da instalirate AUDIO hendler?")
- (set #t_lpathhelp (cat
- #t_audiohelp
- " Hendleri se obiàno nalaze u L: direktorijumu.\n\n"
- ))
-
- (set #t_dosdevpath "Gde äelite da instalirate fajl za mount-ovanje AUDIO hendlera?")
- (set #t_dosdevpathhelp (cat
- #t_audiohelp
- " Mount fajlovi se nalaze u direktorijumu Devs:DOSDrivers"
- " ako treba da se mount-uju pri dizanju sistema. Ako ne, onda"
- " se verovatno nalaze u SYS:Storage/DOSDrivers direktorijumu.\n\n"
- ))
-
- (set #t_dosdriver "Da li äelite da hendler bude instaliran pri dizanju sistema?")
- (set #t_dosdriverhelp (cat
- " Ako äelite, AUDIO: ureâaj moäe biti dostupan àim se digne sistem."
- " Ovo vam omoguáava da ne morate da mount-ujete ureâaj svaki put"
- " kada äelite da ga koristite. Ureâaj ne zahteva mnogo memorije"
- " i zato preporuàujem da da odaberete 'Da'.\n\n"
- ))
-
- (set #t_userdocpath "Gde äelite da instalirate korisniàku dokumentaciju?")
- (set #t_userdocpathhelp (cat
- " Ovo je AmigaGuide® fajl koji opisuje AHI audio sistem"
- " i njegove komponente.\n\n"
- ))
-
- (set #t_srcpath (cat
- " Gde äelite da instalirate primere izvornog koda?"
- " Direktorijum sa imenom AHI biáe napravljen tamo."
- ))
- (set #t_srcpathhelp (cat
- " Primeri izvornog koda, i u C-u i asembleru, áe biti"
- " stavljeni u poddirektorijum imena AHI. Svi fajlovi koji"
- " se nalaze u AHI direktorijumu áe biti obrisani!\n\n"
- ))
- (set #t_oldsrc (cat
- " Ovde veá postoji direktorijum imena AHI."
- " Svi fajlovi u njemu áe biti obrisani."
- ))
-
- (set #t_devdocspath " Gde äelite da stavite dokumentaciju za programere?")
- (set #t_devdocspathhelp (cat
- " Installer áe staviti autodok fajlove i dokumentaciju za"
- " razvoj AHI-ja direktorijum koji odaberete.\n\n"
- ))
-
- (set #t_aincpath " Gde se nalaze Vaãi include fajlovi za asembler?")
- (set #t_aincpathhelp (cat
- " Installer áe smestiti include fajlove za asembler"
- " u poddirektorijume (lvo, devices i libraries)"
- " direktorijuma koji odaberete.\n\n"
- ))
-
- (set #t_fdpath " Gde dräite Vaãe FD fajlove?")
- (set #t_fdpathhelp (cat
- " FD fajlovi su fajlovi koji opisuju funkcije biblioteke"
- " i ureâaja. Mogu se koristiti sa programom 'lvo', i"
- " i mogu biti korisni ako piãete hardverske drajvere.\n\n"
- ))
-
- (set #t_cincpath " Gde se nalaze Vaãi C include fajlovi?")
- (set #t_cincpathhelp (cat
- " Installer áe smestiti opãte include fajlove za C"
- " u poddirektorijume (clib, devices i libraries)"
- " direktorijuma koji odaberete.\n\n"
- ))
-
- (set #t_emodpath " Gde se nalaze Vaãi E modul fajlovi?")
- (set #t_emodpathhhelp (cat
- " Installer áe smestiti E modul fajlove u direktorijum"
- " i poddirektorijume (devices i libraries)"
- " direktorijuma koji odaberete.\n\n"
- ))
-
- (set #t_adeincpath " Gde äelite da smestite ADE gcc include fajlove?")
- (set #t_adeincpathhelp (cat
- " gcc-u trebaju neki dodatni fajlovi da bi naãao koje registre"
- " da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
- " u ovim fajlovima, koji áe biti kopirani u direktorijume "
- " inline, pragmas i proto.\n\n"
- ))
-
- (set #t_sasincpath " Gde äelite da smestite SAS/C (i DICE) include fajlove?")
- (set #t_sasincpathhelp (cat
- " SAS/C-u (i DICE-u) trebaju neki dodatni fajlovi da bi naãao"
- " koje registre da koristi pri pozivu AHI funkcija. Te informacije"
- " se nalaze u ovim fajlovima, koji áe biti kopirani u pragmas"
- " i proto direktorijume.\n\n"
- ))
-
- (set #t_stormincpath " Gde äelite da smestite StormC include fajlove?")
- (set #t_stormincpathhelp (cat
- " StormC-u neki dodatni fajlovi da bi naãao koje registre"
- " da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
- " u ovim fajlovima, koji áe biti kopirani u pragma i proto"
- " direktorijume.\n\n"
- ))
-
- (set #t_ahidevhelp (cat
- " ahi.device je srce AHI audio"
- " sistema. Ovo je jedini deo za koga"
- " drugi programi znaju.\n\n"
- ))
-
- (set #t_runaddmodes (cat
- " Upravo startujem AddAudioModes da bih"
- " osveäio bazu audio modova."
- ))
-
-
- (set #t_overwritemode1
- " Veá postoji fajl sa opisom audio moda ")
- (set #t_overwritemode2 " prisutan u ")
- (set #t_overwritemode3 (cat
- ".\n\n"
- " Da li äelite da zapiãem preko njega?"
- " Sve promene koje ste naàinili na njemu biáe izgubljene!"
- ))
- ))
-
- (if (= @language "suomi")
- ( ; Translated by Petteri Kallio <k140734@cs.tut.fi>
- (set #t_welcome (cat
- " Tervetuloa AHI-asennukseen. AHI on äänijärjestelmä,"
- " jonka avulla saat käyttöösi Amigan standardin äänipiirin"
- " (Paula) lisäksi myös useita varsinaisia äänikortteja."
- " Tämä on AHI:n neljäs (4.) versio."
- ))
- (set #t_oldinstaller (cat
- " Käytössäsi on Installer-ohjelman vahentunut versio."
- " Voit jatkaa asennusta, mutta asennuksessa saattaa"
- " mennä jotain pieleen. Todennäköisesti tarvitsen"
- " Installer-ohjelman version 43.3 tai uudemman."
- " Haluaisitko kuitenkin jatkaa asennusta?"
- ))
- (set #t_oldinstallerhelp (cat
- " Käyttämäsi Installer-ohjelma on liian vanha versio."
- " Löydät uudemman version vaikkapa Internetistä, esim."
- " Aminetistä, hakemistosta util/misc. Tuoreimman"
- " Installer-ohjelman nimi on \"Installer-43_3.lha\":\n"
- " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
-
- ))
- (set #t_installaborted "Asennus keskeytetty.")
-
- (set #t_installing "Asennan... ")
- (set #t_installingdocs "Asennan kehitysympäristön ohjetiedostoja")
- (set #t_installingincs "Asennan include-tiedostoja")
- (set #t_installingsrc "Asennan esimerkkilähdekoodeja")
- (set #t_nofiles "Ei asennettavia tiedostoja.")
-
- (set #t_nohelp "Ohjeita ei ole saatavissa.")
-
- (set #t_parts "Mitkä osat AHI:sta haluat asentaa?")
- (set #t_system "Järjestelmätiedostot")
- (set #t_prefs "Asetusohjelma")
- (set #t_audio "AUDIO-käsittelijä");
- (set #t_userdoc "Käyttäjän ohjeet")
- (set #t_a-developer "Sovellusten kehitysympäristön tiedostot")
- (set #t_d-developer "Ajurien kehitysympäristön tiedostot")
- (set #t_userhelp (cat
- "Järjestelmätiedostot:\n"
- " Tämä on AHI-äänijärjestelmän sydän."
- " Se täytyy olla asennettuna, ennen kuin AHI:n muut"
- " osat toimivat.\n\n"
- "Asetusohjelma:\n"
- " Asetusohjelmaa käytetään muokkaamaan AHI:n lukuisia asetuksia.\n"
- " Asetusohjelma vaatii, että BGUI on asennettu.\n\n"
- "AUDIO-käsittelijä:\n"
- " Mahdollistaa äänitiedostojen toiston ja tallennuksen"
- " 'copy'-komennon avulla.\n\n"
- "Käyttäjän ohjeet:\n"
- " AmigaGuide®-muotoinen tiedosto, jossa selvitetään"
- " AHI-äänijärjestelmä ja sen eri osat.\n\n"
- ))
- (set #t_devhelp (cat
- "Sovellusten kehitysympäristön tiedostot:\n"
- " Autodocit, include-tiedostot, esimerkkilähdekoodit jne."
- " Tarpeellisia jos haluat käyttää AHI-äänijärjestelmää"
- " omissa sovellusohjelmissasi.\n\n"
- "Ajurien kehitysympäristön tiedostot:\n"
- " Autodocit, esimerkkilähdekoodit jne. Tarpeellisia ainoastaan"
- " jos aiot tehdä uusia äänikorttiajureita.\n\n"
- ))
-
-
- (set #t_languages (cat
- "Mille kielille haluat tehdä asennuksen?"
- " Valmiskielenä on englanti."))
- (set #t_languageshelp (cat
- " Jos oma kielesi ei ole listassa, AHI:n tekijä olisi"
- " mielissään, jos sinä voisit tehdä käännöksen omalle"
- " kielellesi. Käännä tiedostot User/Catalogs/NewCatalog.ct"
- " ja User/Catalogs/NewPrefsCatalog.ct, ja lähetä ne"
- " tähän osoitteeseen:\n"
- " lcs@lysator.liu.se\n\n"
- ))
-
- (set #t_drivers (cat
- "Mitkä AHI-ajurit haluat asentaa?"
- " Asenna ainoastaan tarvitsemasi ajurit."))
- (set #t_drivershelp (cat
- "Delfina:\n"
- " Delfina Classic/Lite -äänikortti.\n\n"
- "Filesave:\n"
- " Kirjoita/lue äänitiedosto tiedostoon.\n\n"
- "Melody MPEG:\n"
- " Melody MPEG-äänikortti.\n\n"
- "Paula:\n"
- " Amigan perusäänijärjestelmä.\n\n"
- "Prelude:\n"
- " Prelude-äänikortti.\n\n"
- "Toccata:\n"
- " Toccata-äänikortti.\n\n"
- "Wavetools:\n"
- " Wavetools-äänikortti.\n\n"
- ))
-
- (set #t_CPUver "Mitkä versiot ohjelmakoodista haluat asentaa?")
- (set #t_CPUverhelp (cat
- " 68020-prosessorille optimoidut versiot ovat nopeampia ja"
- " usein pienikokoisempia kuin 68000-prosessorille tehdyt"
- " perusversiot. AHI-äänijärjestelmän 68000-versioissa on"
- " vähemmän ominaisuuksia ja huonompi äänenlaatu."
- " 68020-versiot kannattaa asentaa, jos käytössäsi"
- " on vähintään 68020-prosessorilla varustettu kone.\n"
- " 68060-versio välttää hitaita 64-bittisiä jakolaskuja. Älä"
- " asenna tätä versiota ellei sinulla ole 68060-prosessoria!\n\n"
- ))
-
- (set #t_devfiles "Mitkä kehitysympäristön tiedostot haluat asentaa?")
- (set #t_devdocs "Autodocit ja AHI-kehitysympäristön ohjeet")
- (set #t_source "Esimerkkilähdekoodit")
- (set #t_asm "Assemblerin include-tiedostot")
- (set #t_cgen "Yleiset C include-tiedostot")
- (set #t_e "E moduletiedostot")
- (set #t_fd "FD-tiedostot")
- (set #t_ade "Ylimääräiset ADE gcc include-tiedostot")
- (set #t_sas "Ylimääräiset SAS/C (ja DICE) include-tiedostot")
- (set #t_storm "Ylimääräiset StormC include-tiedostot")
- (set #t_devfileshelp (cat
- "Autodocit ja AHI-kehitysympäristön ohjeet:\n"
- " AHI:n autodocit ja ohjelmointisäännöt.\n\n"
- "Esimerkkilähdekoodit:\n"
- " Joitain esimerkkiohjelmia, suurin osa C-kielellä, mutta"
- " mukana on myös muutamia assembler-lähdekoodeja.\n\n"
- "Assemblerin include-tiedostot:\n"
- " Include-tiedostot, jotka tarvitset ohjelmoidessasi assemblerilla.\n\n"
- "Yleiset C include-tiedostot:\n"
- " Include-tiedostot, jotka tarvitset ohjelmoidessasi C-kielellä.\n\n"
- "E moduletiedostot:\n"
- " Moduletiedostot, AmigaE-ohjelmointia varten.\n\n"
- "FD-tiedostot:\n"
- " Voidaan käyttää 'lvo'-työkalun kanssa, tai jos teet"
- " laitteistoajurin C-kielellä.\n\n"
- "Ylimääräiset ADE gcc include-tiedostot:\n"
- " Gcc:n erikoisinclude-tiedostot (inline, proto jne).\n\n"
- "Ylimääräiset SAS/C (ja DICE) include-tiedostot:\n"
- " SAS/C:n erikoisinclude-tiedostot (pragma, proto jne)."
- " Toimivat osin myös DCC:n kanssa.\n\n"
- "Ylimääräiset StormC include-tiedostot:\n"
- " StormC:n erikoisinclude-tiedostot (pragma, proto jne).\n\n"
- ))
-
-
- (set #t_nodevs
- "Viitettä Devs: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
- (set #t_noc
- "Viitettä C: ei löytynyt. Kokeile ylempää kättäjän tasoluokitusta.")
- (set #t_noprefs
- "Hakemistoa Sys:Prefs ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
- (set #t_nol
- "Viitettä L: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
- (set #t_devspath "Minne haluat asentaa järjestelmätiedostot?")
- (set #t_devspathhelp (cat
- " Valitsemaasi hakemistoon tulee olla viite Devs:."
- " Asennusohjelma kopioi ahi.device-tiedoston, laitteistoajurit"
- " ja audiotilojen kuvaustiedostot tähän hakemistoon."
- " Ajureille ja audiotilatiedostoille luodaan alihakemistot.\n\n"
- ))
- (set #t_cpath "Minne haluat asentaa ohjelman 'AddAudioModes'?")
- (set #t_cpathhelp (cat
- " AddAudioModes on pieni komentoriviohjelma, jonka avulla"
- " voit muokata audiotiloja sisältävää tietokantaa"
- " (aivan kuten näyttötilojen tietokanta).\n"
- " Komentoriviohjelmat sijaitsevat yleensä hakemistossa C:.\n\n"
- ))
-
-
- (set #t_localepath "Minne haluat asentaa sanastot?")
- (set #t_localepathhelp (cat
- " Valitsemaasi hakemistoon tulee olla viite Locale:."
- " Asennusohjelma kopioi valitsemasi sanastot tässä"
- " hakemistossa oleviin alihakemistoihin.\n\n"
- ))
-
- (set #t_prefspath "Minne haluat asentaa asetusohjelman?")
- (set #t_prefspathhelp (cat
- " Asetusohjelman avulla voit määrittää AHI-äänijärjestelmän"
- " asetukset. Voit valita haluamasi laitteiston, fyysiset"
- " ulostulot ja sisäänmenot jne. Asetusohjelmat sijaitsevat"
- " normaalisti hakemistossa Sys:Prefs/.\n"
- " Tämä ohjelma vaatii toimiakseen BGUI:n.\n\n"
- ))
-
- (set #t_audiohelp (cat
- " AUDIO-käsittelijää käytetään kiinnitettäessä laitetta AUDIO:."
- " Kopioimalla tiedostoja tälle laitteelle tai tältä laitteelta"
- " voit toistaa ja tallentaa raakaa äänitietoa, IFF-AIFF- tai"
- " IFF-AIFC-tiedostoja.\n\n"
- ))
-
- (set #t_lpath "Minne haluat asentaa AUDIO-käsittelijän?")
- (set #t_lpathhelp (cat
- #t_audiohelp
- " Käsittelijät sijaitsevat yleensä hakemistossa L:.\n\n"
- ))
-
- (set #t_dosdevpath "Minne haluat asentaa AUDIO-kiinnitystiedoston?")
- (set #t_dosdevpathhelp (cat
- #t_audiohelp
- " Kiinnitystiedostot sijaitsevat yleensä hakemistossa"
- " Devs:DOSDrivers, jos laitteet kiinnitetään käynnistyksen"
- " yhteydessä. Muutoin kiinnitystiedostot sijaitsevat"
- " varmaankin hakemistossa SYS:Storage/DOSDrivers.\n\n"
- ))
-
- (set #t_dosdriver "Haluatko kiinnittää laitteen AUDIO: käynnistyksen yhteydessä?")
- (set #t_dosdriverhelp (cat
- " Jos haluat, laite AUDIO: voidaan kiinnittää käynnistyksen"
- " yhteydessä. Tämä poistaa tarpeen kiinnittää laite erikseen"
- " aina kun haluat käyttää sitä. Kiinnitys ei vie paljoakaan"
- " muistia, joten on suositeltavaa, että valitset 'Kyllä'.\n\n"
- ))
-
- (set #t_userdocpath "Minne haluat asentaa käyttäjän ohjeet?")
- (set #t_userdocpathhelp (cat
- " Ohjeet ovat AmigaGuide®-tiedostona, jossa kuvataan"
- " AHI-äänijärjestelmää ja sen osia.\n\n"
- ))
-
- (set #t_srcpath (cat
- " Minne haluat asentaa esimerkkilähdekoodit?"
- " Valitsemaasi hakemistoon luodaan alihakemisto AHI."
- ))
- (set #t_srcpathhelp (cat
- " Esimerkkilähdekoodit, sekä C- että assembler-kieliset,"
- " tallennetaan alihakemistoon AHI. Kaikki entiset tiedostot"
- " hakemistossa AHI tuhotaan!\n\n"
- ))
- (set #t_oldsrc (cat
- " Siellä on jo alihakemisto AHI."
- " Kaikki tiedostot alihakemistossa AHI poistetaan."
- ))
-
- (set #t_devdocspath " Minne haluat asentaa kehitysympäristön ohjeet?")
- (set #t_devdocspathhelp (cat
- " Asennusohjelma sijoittaa autodocit ja AHI-kehitysympäristön"
- " ohjeet valitsemaasi hakemistoon.\n\n"
- ))
-
- (set #t_aincpath " Missä sijaitsevat assemblerisi include-tiedostot?")
- (set #t_aincpathhelp (cat
- " Asennusohjelma sijoittaa assemblerin include-tiedostot"
- " valitsemasi hakemiston alihakemistoihin (lvo, devices ja"
- " libraries).\n\n"
- ))
-
- (set #t_fdpath " Missä sijaitsevat FD-tiedostosi?")
- (set #t_fdpathhelp (cat
- " FD-tiedostot kuvaavat kirjaston tai laitteen toimintoja."
- " Niitä voidaan käyttää 'lvo'-ohjelman kanssa, ja niistä"
- " voi olla hyötyä kirjoittaessasi laitteistoajureita.\n\n"
- ))
-
- (set #t_cincpath " Missä sijaitsevat C-kääntäjäsi include-tiedostot?")
- (set #t_cincpathhelp (cat
- " Asennusohjelma sijoittaa yleiset C-kääntäjän include-tiedostot"
- " valitsemasi hakemiston alihakemistoihin (clib, devices"
- " ja libraries).\n\n"
- ))
-
- (set #t_emodpath " Missä sijaitsevat E moduletiedostosi?")
- (set #t_emodpathhhelp (cat
- " Asennusohjelma sijoittaa E moduletiedostot valitsemasi"
- " hakemiston alihakemistoihin (devices ja libraries).\n\n"
- ))
-
- (set #t_adeincpath " Minne haluat sijoittaa ADE gcc include-tiedostot?")
- (set #t_adeincpathhelp (cat
- " Gcc tarvitsee muutamia ylimääräisiä tiedostoja"
- " tietääkseen mitä rekistereitä voidaan käyttää"
- " kutsuttaessa AHI-funktioita. Tämä tieto on"
- " tiedostoissa, jotka kopioidaan alihakemistoihin"
- " inline, pragmas ja proto.\n\n"
- ))
-
- (set #t_sasincpath " Minne haluat sijoitta SAS/C (ja DICE) include-tiedostot?")
- (set #t_sasincpathhelp (cat
- " SAS/C (ja DICE) tarvitsevat muutamia ylimääräisiä"
- " tiedostoja tietääkseen mitä rekistereitä voidaan"
- " käyttää kutsuttaessa AHI-funktioita. Tämä tieto on"
- " tiedostoissa, jotka kopioidaan alihakemistoihin"
- " pragmas ja proto.\n\n"
- ))
-
- (set #t_stormincpath " Minne haluat sijoittaa StormC include-tiedostot?")
- (set #t_stormincpathhelp (cat
- " StormC tarvitsee muutamia ylimääräisiä tiedostoja"
- " tietääkseen mitä rekistereitä voidaan käyttää"
- " kutsuttaessa AHI-funktioita. Tämä tieto on tiedostoissa,"
- " jotka kopioidaan alihakemistoihin pragma ja proto.\n\n"
- ))
-
- (set #t_ahidevhelp (cat
- " Ahi.device on AHI-äänijärjestelmän sydän."
- " Tämä on ainoa osa, joka näkyy muille ohjelmille.\n\n"
- ))
-
- (set #t_runaddmodes (cat
- " Ajan komennon AddAudioModes luodakseni"
- " audiotilatietokannan."
- ))
-
-
- (set #t_overwritemode1
- " Audiotilakuvauksesta on jo olemassa kopio ")
- (set #t_overwritemode2 " tiedostossa ")
- (set #t_overwritemode3 (cat
- ".\n\n"
- " Kirjoitetaanko päälle?"
- " Kaikki audiotilaan tekemäsi muutokset tulevat katoamaan!"
- ))
-
- ))
-
- (if (= @language "ÃeÓtina")
- ( ; Tranlated by Vit Sindlar <sindlarv@hotmail.com>
-
- (set #t_welcome (cat
- " VÉtejte pÒi instalaci AHI. AHI je pÒesmÅrovatelnÙ"
- " audio syst×m, kterÙ je moÚno pouÚÉvat jak s vestavÅnÙm"
- " zvukovÙm Ãipem (Paula), tak i nÅkolika zvukovÙmi kartami."
- " AktuÁlnÉ verze tohoto software je 4."
- ))
- (set #t_oldinstaller (cat
- " VlastnÉte starou verzi programu Installer. Tento"
- " instalaÃnÉ skript pravdÅpodobnÅ vyÚaduje verzi 43.3"
- " a vyÓÓÉ. Instalace bude pokraÃovat, ale nelze zaruÃit,"
- " Úe vÓe bude fungovat, tak jak mÁ.\n"
- " Opravdu si pÒejete pokraÃovat?"
- ))
- (set #t_oldinstallerhelp (cat
- " Verze programu Installer, kterÙ pouÚÉvÁte je pÒÉliÓ"
- " starÁ. NejnovÅjÓÉ verzi naleznete vÚdy na Internetu,"
- " napÒ. na Aminetu, v adresÁÒi util/misc. NÁzev archÉvu"
- " je \"Installer-43_3.lha\":\n"
- " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
-
- ))
- (set #t_installaborted "Instalace byla pÒeruÓena.")
-
- (set #t_installing "ProbÉhÁ instalace ")
- (set #t_installingdocs "Instaluje se dokumentace pro vÙvojÁÒe")
- (set #t_installingincs "InstalujÉ se includes")
- (set #t_installingsrc "InstalujÉ se pÒÉklady zdrojovÙch kÏdÊ")
- (set #t_nofiles "Soubory pro instalaci chybÉ.")
-
- (set #t_nohelp "Pro tuto poloÚku nenÉ dostupnÁ nÁpovÅda.")
-
- (set #t_parts "Kter× ÃÁsti AHI si pÒejete nainstalovat?")
- (set #t_system "Syst×mov× soubory")
- (set #t_prefs "Program pro nastavenÉ")
- (set #t_audio "AUDIO handler");
- (set #t_userdoc "UÚivatelskÁ dokumentace")
- (set #t_a-developer "Soubory pro vÙvojÁÒe programÊ")
- (set #t_d-developer "Soubory pro vÙvojÁÒe ovladaÃÊ")
- (set #t_userhelp (cat
- "Syst×mov× soubory:\n"
- " Syst×mov× soubory - to je vlastnÅ jÁdro cel×ho AHI a musÉ"
- " bÙt vÚdy nainstalovÁny. Jsou nutn× pro sprÁvnou funkci"
- " vÓech ostatnÉch komponent.\n\n"
- "Program pro nastavenÉ:\n"
- " Program pro nastavenÉ - je pouÚÉvÁn pro pohodln× nastavenÉ"
- " mnoha voleb AHI. Tato ÃÁst AHI vyÚaduje ke sv× Ãinnosti"
- " nainstalovanou knihovnu BGUI.library.\n\n"
- "AUDIO handler:\n"
- " UmoÚÎuje pÒehrÁvat a zaznamenÁvat samply velice jednoduÓe"
- " pomocÉ pÒÉkazu 'copy'.\n\n"
- "UÚivatelskÁ dokumentace:\n"
- " Dokumentace napsanÁ ve standardnÉm formÁtu AmigaGuide®,"
- " kterÁ popisuje AHI a ostatnÉ ÃÁsti syst×mu.\n\n"
- ))
- (set #t_devhelp (cat
- "Soubory pro vÙvojÁÒe programÊ:\n"
- " Autodocs, includes, pÒÉkladov× zdrojov× kÏdy atd."
- " Je nutn× nainstalovat pouze v pÒÉpadÅ, Úe budete vyvÉjet"
- " svÊj vlastnÉ program s podporou AHI.\n\n"
- "Soubory pro vÙvojÁÒe ovladaÃÊ:\n"
- " Autodocs, pÒÉkladovÙ zdrojovÙ kÏd atd. Je nutn× pouze"
- " v pÒÉpadÅ, Úe budete vyvÉjet ovladaÃe pro zvukov× karty.\n\n"
- ))
-
- (set #t_gui (cat
- " Kterou z verzÉ programÊ pro nastavenÉ byste si pÒÁli"
- " nainstalovat?"
- ))
- (set #t_guihelp (cat
- " Zvolte typ GUI, kter×mu dÁvÁte pÒednost, prosÉm.\n\n"
- ))
- (set #t_guibgui "Verze v BGUI")
- (set #t_guimui "Verze v MUI")
-
- (set #t_icon "Kter× ikony si pÒejete nainstalovat?")
- (set #t_iconstd "StandardnÉ 4-barevn×")
- (set #t_iconmwb "8-barevn× typu MagicWB")
- (set #t_iconhelp (cat
- " Zde si zvolÉte druh ikony, kterou si pÒejete pouÚÉvat pro"
- " program pro nastavenÉ. Autorem ikony typu MagicWB je Erol Ismael.\n\n"
- ))
-
- (set #t_languages (cat
- "KterÙ z jazykÊ si pÒejete nainstalovat?"
- " StandardnÉ je angliÃtina."))
- (set #t_languageshelp (cat
- " JestliÚe chybÉ zrovna pÒeklad do VaÓeho jazyka, autor AHI"
- " by VÁs velmi rÁd poÚÁdal o pÒeklad. Upravte a pÒeloÚte"
- " soubory User/Catalogs/NewCatalog.ct a User/Catalogs/NewPrefsCatalog.ct"
- " a poÓlete je na tuto adresu:\n"
- " lcs@lysator.liu.se\n\n"
- " Je dobr× se nejdÒÉve zeptat autora, zda jiÚ nÅkdo pÒeklad"
- " do VaÓeho jazyka nedÅlÁ.\n\n"
-
- ))
-
- (set #t_drivers (cat
- "Kter× z ovladaÃÊ AHI si pÒejete nainstalovat?"
- " Je lepÓÉ si nainstalovat pouze ovladaÃe, kter× skuteÃnÅ potÒebujete."))
- (set #t_drivershelp (cat
- "Delfina:\n"
- " ZvukovÁ karta Delfina s DSP.\n\n"
- "Filesave:\n"
- " UmoÚnÉ ÃtenÉ/zÁpis samplÊ do souboru.\n\n"
- "Melody MPEG:\n"
- " ZvukovÁ karta Melody MPEG.\n\n"
- "Paula:\n"
- " StandardnÉ zvukovÙ Ãip Amigy.\n\n"
- "Prelude:\n"
- " ZvukovÁ karta Prelude.\n\n"
- "Toccata:\n"
- " ZvukovÁ karta Toccata.\n\n"
- "Wavetools:\n"
- " ZvukovÁ karta Wavetools.\n\n"
- ))
-
- (set #t_CPUver "Pro jakÙ procesor si pÒejete nainstalovat programy?")
- (set #t_CPUverhelp (cat
- " Programy optimalizovan× pro 68020 a vyÓÓÉ jsou mnohem"
- " rychlejÓÉ a Ãasto tak× menÓÉ neÚ verze pro obyÃejnou 68000."
- " NavÉc, v pÒÉpadÅ AHI, majÉ verze pro 68000 m×nÅ funkcÉ"
- " a pracujÉ s omezenou kvalitou zvuku. SkuteÃnÅ VÁm doporuÃuji"
- " zvolit pÒi instalaci verze programÊ optimalizovan× pro 68020.\n"
- " Verze pro 68060 neprovÁdÉ pomalÁ 64-bitovÁ dÅlenÉ. Pokud tedy"
- " tento procesor nevlastnÉte, neinstalujte ji!\n\n"
- ))
-
- (set #t_devfiles "Kter× ze souborÊ pro vÙvojÁÒe si pÒejete nainstalovat?")
- (set #t_devdocs "Autodocs a dokumentaci pro vÙvojÁÒe k AHI")
- (set #t_source "PÒÉkladov× zdrojov× kÏdy")
- (set #t_asm "Includes pro assembler")
- (set #t_cgen "Includes pro obecn× C")
- (set #t_e "Moduly pro E")
- (set #t_fd "Soubory FD")
- (set #t_ade "Dodatkov× includes pro ADE gcc")
- (set #t_sas "Dodatkov× includes pro SAS/C (a DICE)")
- (set #t_storm "Dodatkov× includes pro StormC")
- (set #t_devfileshelp (cat
- "Autodocs a dokumentaci pro vÙvojÁÒe k AHI:\n"
- " Autodocs a pravidla pro programovÁnÉ AHI.\n\n"
- "PÒÉkladov× zdrojov× kÏdy:\n"
- " NÅkolik pÒÉkladovÙch programÊ, nejÃastÅji jsou napsÁny v C,"
- " ale je tam i nÅkolik kouskÊ v assembleru.\n\n"
- "Includes pro assembler:\n"
- " Includes, kter× jsou tÒeba pro programovÁnÉ v assembleru.\n\n"
- "Includes pro obecn× C:\n"
- " Includes, kter× jsou tÒeba pro programovÁnÉ v C.\n\n"
- "Moduly pro E:\n"
- " Moduly, kter× jsou nutn× pro AmigaE.\n\n"
- "Soubory FD:\n"
- " Pro pouÚitÉ s programem 'lvo', nebo v pÒÉpadÅ, Úe budete"
- " psÁt ovladaà pro zvukovou kartu v C.\n\n"
- "Dodatkov× includes pro ADE gcc:\n"
- " SpeciÁlnÉ includes pro gcc (inline, proto atd).\n\n"
- "Dodatkov× includes pro SAS/C (a DICE):\n"
- " SpeciÁlnÉ includes pro SAS/C (pragmas, proto atd)."
- " Budou fungovat tak× s DCC, ale bez volÁnÉ tagÊ.\n\n"
- "Dodatkov× includes pro StormC:\n"
- " SpeciÁlnÉ includes pro StormC (pragmas, proto atd).\n\n"
- ))
-
-
- (set #t_nodevs (cat
- "Nelze nal×zt pÒiÒazenÉ Devs:. PouÚijte vyÓÓÉ mÏd instalace"
- " (pro zkuÓenÅjÓÉ uÚivatele)."
- ))
- (set #t_noc (cat
- "Nelze nal×zt pÒiÒazenÉ C:. PouÚijte vyÓÓÉ mÏd instalace"
- " (pro zkuÓenÅjÓÉ uÚivatele)."
- ))
- (set #t_noprefs (cat
- "Nelze nal×zt adresÁÒ Sys:Prefs. PouÚijte vyÓÓÉ mÏd instalace"
- " (pro zkuÓenÅjÓÉ uÚivatele)."
- ))
- (set #t_nol (cat
- "Nelze nal×zt pÒiÒazenÉ L:. PouÚijte vyÓÓÉ mÏd instalace"
- " (pro zkuÓenÅjÓÉ uÚivatele)."
- ))
- (set #t_devspath "Kam si pÒejete nainstalovat syst×mov× soubory?")
- (set #t_devspathhelp (cat
- " AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Devs:."
- " PÒi instalaci se tam nakopÉruje ahi.device, ovladaÃe pro"
- " hardware a soubory pro jednotliv× audio mÏdy."
- " Pro ovladaÃe a soubory s jednotlivÙmi audio mÏdy budou"
- " vytvoÒeny podadresÁÒe.\n\n"
- ))
- (set #t_cpath "Kam si pÒejete nainstalovat AddAudioModes?")
- (set #t_cpathhelp (cat
- " AddAudioModes je pÒÉkaz, kterÙ slouÚÉ ke sprÁvÅ databÁze"
- " audio mÏdÊ (podobnost s databÁzÉ rozliÓovacÉch mÏdÊ je"
- " ÃistÅ nÁhodnÁ :-). PÒÉkaz by mÅl bÙt normÁlnÅ umÉstÅn"
- " v pÒiÒazenÉ C:.\n\n"
- ))
-
-
- (set #t_localepath "Kam si pÒejete nainstalovat lokalizaÃnÉ katalogy?")
- (set #t_localepathhelp (cat
- " AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Locale:."
- " PÒi instalaci se tam nakopÉrujÉ lokalizaÃnÉ katalogy, kter×"
- " jste si vybrali. PochopitelnÅ budou jednotliv× katalogy"
- " nakopÉrovÁny do pÒÉsluÓnÙch adresÁÒÊ s danÙm jazykem.\n\n"
- ))
-
- (set #t_prefspath "Kam si pÒejete nainstalovat program pro nastavenÉ?")
- (set #t_prefspathhelp (cat
- " Program pro nastavenÉ VÁm umoÚnÉ nakonfigurovat AHI pÒesnÅ"
- " dle moÚnostÉ poÃÉtaÃe. Je zde moÚno nastavit, kterou z ÃÁstÉ"
- " zvukov×ho hardware si pÒejete pouÚÉvat, jak× vstupy a vÙstupy"
- " atd. Programy pro nastavenÉ se obvykle nachÁzÉ v adresÁÒi"
- " SYS:Prefs/.\n"
- " Tento program vyÚaduje balÉk BGUI nebo MUI, coÚ zÁleÚÉ na"
- " volbÅ verze programu pro nastavenÉ.\n\n"
- ))
-
- (set #t_audiohelp (cat
- " AUDIO handler se pouÚÉvÁ k pÒipojenÉ zaÒÉzenÉ AUDIO:. PouhÙm"
- " kopÉrovÁnÉm souborÊ z a do tohoto zaÒÉzenÉ je moÚno pÒehrÁvat"
- " a zaznamenÁvat soubory v RAW, IFF-AIFF nebo IFF-AIFC.\n\n"
- ))
-
- (set #t_lpath "Kam si pÒejete nainstalovat AUDIO handler?")
- (set #t_lpathhelp (cat
- #t_audiohelp
- " Handlery jsou obvykle umÉstÅny v pÒiÒazenÉ L:.\n\n"
- ))
-
- (set #t_dosdevpath "Kam si pÒejete nainstalovat pÒipojovacÉ soubor AUDIO (mount)?")
- (set #t_dosdevpathhelp (cat
- #t_audiohelp
- " PÒipojovacÉ soubory (mount) jsou obvykle umÉstÅny v adresÁÒi"
- " Devs:DOSDrivers, v pÒÉpadÅ, Úe si je pÒejete pÒipojovat hned"
- " po startu. Pokud si to nepÒejete pak by mÅly bÙt pÒesunuty"
- " do adresÁÒe SYS:Storage/DOSDrivers.\n\n"
- ))
-
- (set #t_dosdriver "PÒejete si mÉt aktivovÁn AUDIO handler ihned startu?")
- (set #t_dosdriverhelp (cat
- " V pÒÉpadÅ, Úe si to pÒejete, je moÚno nainstalovat AHI tak,"
- " Úe zaÒÉzenÉ AUDIO: bude aktivnÉ ihned po startu. Tento zpÊsob"
- " ÓetÒÉ Ãas, kterÙ jinak musÉte vynaloÚit na proklikÁnÉ se do"
- " SYS:Storage/DOSDrivers, a nevyÚaduje mnoho pamÅti. Z tohoto"
- " dÊvodu se doporuÃuje odpovÅdÅt 'Ano'.\n\n"
- ))
-
- (set #t_userdocpath "Kam si pÒejete nainstalovat uÚivatelskou dokumentaci?")
- (set #t_userdocpathhelp (cat
- " Toto je soubor v formÁtu AmigaGuide®, kterÙ popisuje vlastnosti"
- " audio syst×mu AHI.\n\n"
- ))
-
- (set #t_srcpath (cat
- " Kam si pÒejete nainstalovat pÒÉkladov× zdrojov× kÏdy?"
- " Na tomto mÉstÅ bude vytvoÒen adresÁÒ s nÁzvem AHI."
- ))
- (set #t_srcpathhelp (cat
- " PÒÉkladov× zdrojov× kÏdy (v jazyce C i assembleru) budou"
- " uloÚeny v podadresÁÒi nazvan×m AHI. Jak×koliv soubory, kter×"
- " jsou aktuÁlnÅ uloÚeny v adresÁÒi AHI, budou smazÁny!\n\n"
- ))
- (set #t_oldsrc (cat
- " Na tomto mÉstÅ jiÚ adresÁÒ AHI existuje."
- " VÓechny soubory v nÅm budou smazÁny."
- ))
-
- (set #t_devdocspath " Kam si pÒejete nainstalovat dokumentaci pro vÙvojÁÒe?")
- (set #t_devdocspathhelp (cat
- " Autodocs a dokumentace pro vÙvojÁÒe budou uloÚeny"
- " do adresÁÒe, kterÙ si zvolÉte.\n\n"
- ))
-
- (set #t_aincpath " Kde mÁte uloÚen× sv× includes pro assembler?")
- (set #t_aincpathhelp (cat
- " Includes pro assembler budou uloÚeny do svÙch podadresÁÒÊ"
- " (lvo, devices a libraries) na disku, kterÙ si zvolÉte.\n\n"
- ))
-
- (set #t_fdpath " Kam si pÒejete uloÚit soubory FD?")
- (set #t_fdpathhelp (cat
- " FD jsou soubory popisujÉcÉ funkce knihoven a zaÒÉzenÉ"
- " PouÚÉvajÉ se s programem 'lvo' a jsou tak× uÚiteÃn×"
- " pÒi vytvÁÒenÉ ovladaÃÊ pro hardware.\n\n"
- ))
-
- (set #t_cincpath " Kde mÁte uloÚen× sv× includes pro C?")
- (set #t_cincpathhelp (cat
- " Includes pro obecn× C budou uloÚeny do svÙch"
- " podadresÁÒÊ (clib, devices a libraries) na disku, kterÙ"
- " si zvolÉte.\n\n"
- ))
-
- (set #t_emodpath " Kde mÁte uloÚen× sv× moduly pro E?")
- (set #t_emodpathhhelp (cat
- " Moduly pro E budou uloÚeny do sv×ho adresÁÒe a jeho"
- " podadresÁÒÊ (devices a libraries) na disku, kterÙ si"
- " zvolÉte.\n\n"
- ))
-
- (set #t_adeincpath " Kam si pÒejete uloÚit includes pro ADE gcc?")
- (set #t_adeincpathhelp (cat
- " gcc potÒebuje extra soubory k tomu, aby si zjistil, kter×"
- " registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
- " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
- " inline, pragmas a proto.\n\n"
- ))
-
- (set #t_sasincpath " Kam si pÒejete uloÚit includes pro SAS/C (a DICE)?")
- (set #t_sasincpathhelp (cat
- " SAS/C (a DICE) potÒebuje extra soubory k tomu, aby si zjistil,"
- " kter× registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
- " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
- " inline, pragmas a proto.\n\n"
- ))
-
- (set #t_stormincpath " Kam si pÒejete uloÚit includes pro StormC?")
- (set #t_stormincpathhelp (cat
- " StormC potÒebuje extra soubory k tomu, aby si zjistil, kter×"
- " registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
- " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
- " inline, pragmas a proto.\n\n"
- ))
-
- (set #t_ahidevhelp (cat
- " ahi.device je jÁdrem cel×ho audio"
- " syst×mu AHI. Toto je jedinÁ ÃÁst tohoto"
- " syst×mu, o kter× 'vÉ' ostatnÉ programy.\n\n"
- ))
-
- (set #t_runaddmodes (cat
- " Bude spuÓtÅn pÒÉkaz AddAudioModes k tomu,"
- " aby se obnovila databÁze audio mÏdÊ."
- ))
-
-
- (set #t_overwritemode1
- " V tomto adresÁÒi jiÚ soubor s popisem audio mÏdu existuje ")
- (set #t_overwritemode2 " v ")
- (set #t_overwritemode3 (cat
- ".\n\n"
- " SkuteÃnÅ si to pÒejete pÒepsat?"
- " VeÓkerÁ zmÅnÅnÁ nastavenÉ budou ztracena!"
- ))
- ))
-
- ;(if (= @language "svenska")
- ;( ; Translated by Your Name <your@email.adr>
- ;))
-
-
- ;**
- ;** Procedures
- ;**
-
- (procedure P_INSTDRIVER #pi_audioname #pi_modename
- (
- (set #pi_drvpath (tackon #devspath "AHI/"))
- (set #pi_modepath (tackon #devspath "AudioModes/"))
- (if (not (exists #pi_drvpath))
- (makedir #pi_drvpath)
- )
- (if (not (exists #pi_modepath))
- (makedir #pi_modepath)
- )
-
- (if (exists (tackon "User/Devs/AHI" (cat #pi_audioname #ver68k)))
- (
- (set #pi_audionamesrc (cat #pi_audioname #ver68k))
- )
- (
- (set #pi_audionamesrc #pi_audioname)
- ))
-
- (copylib
- (help (cat #t_drivershelp @copylib-help))
- (prompt (cat #t_installing #pi_drvpath #pi_audionamesrc))
- (source (tackon "User/Devs/AHI" #pi_audionamesrc))
- (dest #pi_drvpath)
- (newname #pi_audioname)
- (confirm)
- )
-
- (set #pt_copymode 0)
- (if (exists (tackon #pi_modepath #pi_modename))
- (if (exists (tackon #pi_modepath #pi_modename))
- (
- ; (if (askbool
- ; (prompt (cat #t_overwritemode1
- ; #pi_modename
- ; #t_overwritemode2
- ; #pi_drvpath
- ; #t_overwritemode3
- ; ))
- ; (default 1)
- ; (help #t_drivershelp)
- ; )
- ; (
- (set #pt_copymode 1)
- ; ))
- ))
- ( ; else (exists)
- (set #pt_copymode 1)
- ))
- (if (= #pt_copymode 1)
- (
- (copyfiles
- (prompt (cat #t_installing #pi_modepath #pi_modename))
- (source (tackon "User/Devs/AudioModes" #pi_modename))
- (dest #pi_modepath)
- )
- ))
- ))
-
- (procedure P_INSTCATALOG #pi_language
- (
- (set #pi_dest (tackon (tackon #localepath "Catalogs") #pi_language))
- (copyfiles
- (prompt (cat #t_installing (tackon #pi_dest #pi_language)))
- (source (tackon "User/Catalogs" #pi_language))
- (dest #pi_dest)
- (all)
- )
- ))
-
- ;**
- ;** Main installation procedure starts here...
- ;**
-
- (set #system 1 ;System files
- #prefs 2 ;Preferences program
- #audio 4 ;The AHI handler
- #userdoc 8 ;User documentation
- #a-developer 16 ;App. programmers developer files
- #d-developer 32 ;Drv. programmers developer files
- )
- (set #delfina 1 ;Sound card drivers
- #filesave 2
- #melody 4
- #paula 8
- #prelude 16
- #toccata 32
- #wavetools 64
- )
-
- (set #devdocs 1 ;Autodocs and programming guidelines
- #source 2 ;Example source code
- #asm 4 ;Assembler include files
- #cgen 8 ;Generic C include files
- #e 16 ;E module files
- #fd 32 ;FD-files
- #ade 64 ;ADE gcc include files
- #sas 128 ;SAS/C include files
- #storm 256 ;StormC include files
- )
-
- ;**
- ;** Make sure we're using a recent version of the installer
- ;**
-
- (if (< @installer-version (+ (* 43 65536) 3))
- (
- (if (not (askbool
- (prompt #t_oldinstaller)
- (help #t_oldinstallerhelp)
- ))
- (
- (abort (cat #t_installaborted "\n\n" #t_oldinstallerhelp))
- ))
- ))
-
- ;**
- ;** Welcome!
- ;**
-
- (welcome #t_welcome)
-
- ;**
- ;** Find out which parts should be installed
- ;**
-
- (set #default 0 #helptext "")
- (set #parts 0)
-
- (if (exists "User")
- (
- (set #helptext (cat #helptext #t_userhelp))
- (set #default (bitor #default #system #prefs #audio #userdoc))
- )
- ( ; else
- (set #t_system "")
- (set #t_prefs "")
- (set #t_audio "")
- (set #t_userdoc "")
-
- ))
-
- (if (exists "Developer")
- (
- (set #helptext (cat #helptext #t_devhelp))
- (set #default (bitor #default #a-developer #d-developer))
- )
- ( ; else
- (set #t_a-developer "")
- (set #t_d-developer "")
- ))
-
- (if (= #default 0)
- (abort #t_nofiles)
- )
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- ;**
- ;** Ask which parts should be installed
- ;**
-
- (if (= @user-level 0)
- (
- (set #parts #default)
- )
- ( ; Average or Expert
- (set #parts (askoptions
- (prompt #t_parts)
- (help (cat #helptext @askoptions-help))
- (choices #t_system #t_prefs #t_audio #t_userdoc #t_a-developer #t_d-developer)
- (default #default)
- ))
- ))
-
- ;**
- ;** Which GUI system?
- ;**
-
- (set #gui_bgui 0 ;Use BGUI
- #gui_mui 1 ;Use MUI
- )
-
- (set #gui #gui_bgui)
-
- (if (bitand #parts #prefs)
- (set #gui (askchoice
- (prompt #t_gui)
- (help (cat #t_guihelp @askchoice-help))
- (choices #t_guibgui #t_guimui)
- (default #gui))
- )
- )
-
- (if (= #gui #gui_bgui)
- (set #prefssrc "AHI_BGUI")
- )
- (if (= #gui #gui_mui)
- (set #prefssrc "AHI_MUI")
- )
-
-
- ;**
- ;** Which icon?
- ;**
-
- (set #icon_std 0
- #icon_mwb 1
- )
-
- (set #icon #icon_std)
-
- (if (<> (getenv "MagicWB") "")
- (set #icon #icon_mwb)
- )
-
- (if (bitand #parts (bitor #prefs #audio))
- (set #icon (askchoice
- (prompt #t_icon)
- (help (cat #t_iconhelp @askchoice-help))
- (choices #t_iconstd #t_iconmwb)
- (default #icon))
- )
- )
-
-
- ;**
- ;** Activate the AUDIO handler at boot time?
- ;**
-
- (set #dosdevpath "Devs:DOSDrivers")
-
- (if (and (bitand #parts #audio) (>= @user-level 1))
- (if (not (askbool
- (prompt #t_dosdriver)
- (help (cat #t_dosdriverhelp @askbool-help))
- (default 1)))
- (
- (set #dosdevpath "SYS:Storage/DOSDrivers")
- ))
- )
-
- ;**
- ;** Ask which languages should be installed
- ;**
-
- (set #dansk 1
- #deutsch 2
- #español 4
- #français 8
- #greek 16
- #íslenska 32
- #italiano 64
- #nederlands 128
- #norsk 256
- #polski 512
- #português 1024
- #srpski 2048
- #suomi 4096
- #svenska 8192
- #ÃeÓtina 16384
-
- )
-
- (set #t_dansk "Dansk"
- #t_deutsch "Deutsch"
- #t_español "Español"
- #t_français "Français"
- #t_greek "Greek"
- #t_íslenska "Íslenska"
- #t_italiano "Italiano"
- #t_nederlands "Nederlands"
- #t_norsk "Norsk"
- #t_polski "Polski"
- #t_português "Português"
- #t_srpski "Srpski"
- #t_suomi "Suomi"
- #t_svenska "Svenska"
- #t_ÃeÓtina "ãeÓtina"
- )
-
-
- (set #default 0)
-
- (if (not (exists "User/Catalogs/dansk")) (set #t_dansk ""))
- (if (not (exists "User/Catalogs/deutsch")) (set #t_deutsch ""))
- (if (not (exists "User/Catalogs/español")) (set #t_español ""))
- (if (not (exists "User/Catalogs/français")) (set #t_français ""))
- (if (not (exists "User/Catalogs/greek")) (set #t_greek ""))
- (if (not (exists "User/Catalogs/íslenska")) (set #t_íslenska ""))
- (if (not (exists "User/Catalogs/italiano")) (set #t_italiano ""))
- (if (not (exists "User/Catalogs/nederlands")) (set #t_nederlands ""))
- (if (not (exists "User/Catalogs/norsk")) (set #t_norsk ""))
- (if (not (exists "User/Catalogs/polski")) (set #t_polski ""))
- (if (not (exists "User/Catalogs/português")) (set #t_português ""))
- (if (not (exists "User/Catalogs/srpski")) (set #t_srpski ""))
- (if (not (exists "User/Catalogs/suomi")) (set #t_suomi ""))
- (if (not (exists "User/Catalogs/svenska")) (set #t_svenska ""))
- (if (not (exists "User/Catalogs/ÃeÓtina")) (set #t_ÃeÓtina ""))
-
- (if (and (exists "LOCALE:Languages/dansk.language" (noreq)) (not (= #t_dansk "")))
- (set #default (bitor #default #dansk))
- )
- (if (and (exists "LOCALE:Languages/deutsch.language" (noreq)) (not (= #t_deutsch "")))
- (set #default (bitor #default #deutsch))
- )
- (if (and (exists "LOCALE:Languages/español.language" (noreq)) (not (= #t_español "")))
- (set #default (bitor #default #español))
- )
- (if (and (exists "LOCALE:Languages/français.language" (noreq)) (not (= #t_français "")))
- (set #default (bitor #default #français))
- )
- (if (and (exists "LOCALE:Languages/greek.language" (noreq)) (not (= #t_greek "")))
- (set #default (bitor #default #greek))
- )
- (if (and (exists "LOCALE:Languages/íslenska.language" (noreq)) (not (= #t_íslenska "")))
- (set #default (bitor #default #íslenska))
- )
- (if (and (exists "LOCALE:Languages/italiano.language" (noreq)) (not (= #t_italiano "")))
- (set #default (bitor #default #italiano))
- )
- (if (and (exists "LOCALE:Languages/nederlands.language" (noreq)) (not (= #t_nederlands "")))
- (set #default (bitor #default #nederlands))
- )
- (if (and (exists "LOCALE:Languages/norsk.language" (noreq)) (not (= #t_norsk "")))
- (set #default (bitor #default #norsk))
- )
- (if (and (exists "LOCALE:Languages/polski.language" (noreq)) (not (= #t_polski "")))
- (set #default (bitor #default #polski))
- )
- (if (and (exists "LOCALE:Languages/português.language" (noreq)) (not (= #t_portugues "")))
- (set #default (bitor #default #portugues))
- )
- (if (and (exists "LOCALE:Languages/srpski.language" (noreq)) (not (= #t_srpski "")))
- (set #default (bitor #default #srpski))
- )
- (if (and (exists "LOCALE:Languages/suomi.language" (noreq)) (not (= #t_suomi "")))
- (set #default (bitor #default #suomi))
- )
- (if (and (exists "LOCALE:Languages/svenska.language" (noreq)) (not (= #t_svenska "")))
- (set #default (bitor #default #svenska))
- )
- (if (and (exists "LOCALE:Languages/ÃeÓtina.language" (noreq)) (not (= #t_ÃeÓtina "")))
- (set #default (bitor #default #ÃeÓtina))
- )
-
- (if (bitand #parts (bitor #system #prefs))
- (if (= @user-level 0)
- (
- (set #languages #default)
- )
- ( ; Average or Expert
- (set #languages (askoptions
- (prompt #t_languages)
- (help (cat #t_languageshelp @askoptions-help))
- (choices #t_dansk #t_deutsch #t_español #t_français
- #t_greek #t_íslenska #t_italiano #t_nederlands
- #t_norsk #t_polski #t_português #t_srpski
- #t_suomi #t_svenska #t_ÃeÓtina)
- (default #default)
- ))
- ))
- )
-
-
- ;**
- ;** Find out which drivers should be installed (if any)
- ;**
-
- (set #default #filesave)
- (set #drivers 0)
-
- (if (exists "Libs:delfina.library" (noreq))
- (set #default (bitor #default #delfina))
- )
- (if (<> (database "graphics-mem") 0) ; Test for not Draco...
- (set #default (bitor #default #paula))
- )
- (if (exists "Libs:prelude.library" (noreq))
- (set #default (bitor #default #prelude))
- )
-
- (if (exists "Libs:toccata.library" (noreq))
- ; Don't set if emulation library found!
- (if (< (bitand (getversion "Libs:toccata.library") 65535) 1000)
- (set #default (bitor #default #toccata))
- )
- )
- (if (exists "Devs:dad_audio.device" (noreq))
- (set #default (bitor #default #wavetools))
- )
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #parts #system)
- (if (= @user-level 0)
- (
- (set #drivers #default)
- )
- ( ; Average or Expert
- (set #drivers (askoptions
- (prompt #t_drivers)
- (help (cat #t_drivershelp @askoptions-help))
- (choices "Delfina" "Filesave" "Melody MPEG" "Paula" "Prelude" "Toccata" "Wavetools")
- (default #default)
- ))
- ))
- )
-
- ;**
- ;** Install 020-versions of the binaries?
- ;**
-
- (set #ver68k "")
- (set #default 1)
-
- (if (patmatch "68000|68010" (database "cpu"))
- (
- (set #default 0)
- ))
-
- (if (patmatch "68060" (database "cpu"))
- (
- (set #default 2)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #system) (>= @user-level 1))
- (set #default (askchoice
- (prompt #t_CPUver)
- (help (cat #t_CPUverhelp @askbool-help))
- (choices "68000" "68020-68040" "68060")
- (default #default)))
- )
-
- (if (= #default 0)
- (
- (set #ver68k ".000")
- ))
- (if (= #default 2)
- (
- (set #ver68k ".060")
- ))
-
-
- ;**
- ;** Find out which developer files should be installed
- ;**
-
- (set #default (bitor #devdocs #source #asm #cgen #fd))
- (set #devfiles 0)
-
- (if (exists "ADE:" (noreq))
- (set #default (bitor #default #ade))
- )
-
- (if (exists "SC:" (noreq))
- (set #default (bitor #default #sas))
- )
-
- (if (exists "STORMC:" (noreq))
- (set #default (bitor #default #storm))
- )
-
- (if (exists "EMODULES:" (noreq))
- (set #default (bitor #default #e))
- )
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #parts (bitor #a-developer #d-developer))
- (
- (if (= @user-level 0)
- (
- (set #devfiles #default)
- )
- ( ; Average or Expert
- (set #devfiles (askoptions
- (prompt #t_devfiles)
- (help (cat #t_devfileshelp @askoptions-help))
- (choices #t_devdocs #t_source #t_asm #t_cgen #t_e #t_fd #t_ade #t_sas #t_storm )
- (default #default)
- ))
- ))
- ))
-
- ;**
- ;** Find out where the files should be installed
- ;**
-
- (set #devspath "Devs:")
- (set #cpath "C:")
- (set #prefspath "SYS:Prefs/")
- (set #lpath "L:")
- (set #localepath "Locale:")
-
- (set #incpath @default-dest)
- (set #adeincpath "ADE:include/")
- (set #sasincpath "Include:")
- (set #stormincpath "StormC:Include")
- (set #fdpath "FD:")
- (set #emodpath "EMODULES:")
-
- (if (exists #devspath (noreq)) (set #devspath (expandpath #devspath)))
- (if (exists #cpath (noreq)) (set #cpath (expandpath #cpath)))
- (if (exists #prefspath (noreq)) (set #prefspath (expandpath #prefspath)))
- (if (exists #lpath (noreq)) (set #lpath (expandpath #lpath)))
- (if (exists #localepath (noreq)) (set #localepath (expandpath #localepath)))
-
- (if (not (exists "Help:" (noreq)))
- (
- (if (bitand #parts #prefs)
- (set #userdocpath #prefspath)
- (set #userdocpath @default-dest)
- )
- )
- (
- (if (>= #osversion 38)
- (
- (set #userdocpath "Help:")
- ))
- ))
-
- (if (bitand #devfiles #ade)
- (
- (set #incpath "ADE:os-include/")
- ))
- (if (exists "Include:" (noreq))
- (
- (set #incpath "Include:")
- ))
-
- (if (= @user-level 0)
- (
- (if (and (bitand #parts #system) (not (exists #devspath (noreq))))
- (
- (abort #t_nodevs)
- ))
- (if (and (bitand #parts #system) (not (exists #cpath (noreq))))
- (
- (abort #t_noc)
- ))
- (if (and (bitand #parts #prefs) (not (exists #prefspath (noreq))))
- (
- (abort #t_noprefs)
- ))
- (if (and (bitand #parts #audio) (not (exists #lpath (noreq))))
- (
- (abort #t_nol)
- ))
-
- (set #srcpath (tackon @default-dest "AHI/"))
- (if (exists #srcpath)
- (
- (delete #srcpath
- (all)
- (optional "force")
- )
- ))
-
- (set #devdocspath (tackon #srcpath "docs/"))
- (if (= #userdocpath @default-dest)
- (
- (set #userdocpath #devdocspath)
- ))
- (if (= #incpath @default-dest)
- (
- (set #incpath (tackon #srcpath "include/"))
- ))
- (set #aincpath #incpath)
- (set #cincpath #incpath)
- (if (not (exists #sasincpath (noreq)))
- (
- (set #sasincpath #cincpath)
- ))
- (if (not (exists #stormincpath (noreq)))
- (
- (set #stormincpath #cincpath)
- ))
- (if (not (exists #fdpath (noreq)))
- (
- (set #fdpath (tackon #incpath "fd/"))
- ))
- (if (not (exists #emodpath (noreq)))
- (
- (set #emodpath #cincpath)
- ))
-
- (makedir #srcpath (infos))
- (set @default-dest #srcpath)
-
- ; Match the number of completes in the 'else' section...
- (complete (/ #complete 10)) (set #complete (+ #complete (* 15 #completeadd)))
-
- )
- ( ; Average or Expert
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #system)
- (or (not (exists #devspath (noreq))) (= @user-level 2) ))
- (
- (set #devspath (askdir
- (prompt #t_devspath)
- (help (cat #t_devspathhelp @askdir-help))
- (default #devspath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #system)
- (or (not (exists #cpath (noreq))) (= @user-level 2) ))
- (
- (set #cpath (askdir
- (prompt #t_cpath)
- (help (cat #t_cpathhelp @askdir-help))
- (default #cpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (<> #languages 0)
- (or (not (exists #localepath (noreq))) (= @user-level 2) ))
- (
- (set #localepath (askdir
- (prompt #t_localepath)
- (help (cat #t_localepathhelp @askdir-help))
- (default #localepath)
- ))
- ))
-
-
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #prefs)
- (or (not (exists #prefspath (noreq))) (= @user-level 2) ))
- (
- (set #prefspath (askdir
- (prompt #t_prefspath)
- (help (cat #t_prefspathhelp @askdir-help))
- (default #prefspath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #audio)
- (or (not (exists #lpath (noreq))) (= @user-level 2) ))
- (
- (set #lpath (askdir
- (prompt #t_lpath)
- (help (cat #t_lpathhelp @askdir-help))
- (default #lpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #audio)
- (or (not (exists #dosdevpath (noreq))) (= @user-level 2) ))
- (
- (set #dosdevpath (askdir
- (prompt #t_dosdevpath)
- (help (cat #t_dosdevpathhelp @askdir-help))
- (default #dosdevpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (and (bitand #parts #userdoc)
- (or (= #userdocpath @default-dest) (= @user-level 2) ))
- (
- (set #userdocpath (askdir
- (prompt #t_userdocpath)
- (help (cat #t_userdocpathhelp @askdir-help))
- (default #userdocpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #source)
- (
- (set #srcpath (askdir
- (prompt #t_srcpath)
- (help (cat #t_srcpathhelp @askdir-help))
- (default @default-dest)
- ))
- (set #srcpath (tackon #srcpath "AHI/"))
- (if (exists #srcpath)
- (
- (delete #srcpath
- (all)
- (confirm average)
- (optional "force")
- (prompt #t_oldsrc)
- (help #t_nohelp)
- )
- ))
- (makedir #srcpath (infos))
- (set @default-dest #srcpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #devdocs)
- (
- (set #devdocspath (askdir
- (prompt #t_devdocspath)
- (help (cat #t_devdocspathhelp @askdir-help))
- (default (tackon @default-dest "docs/"))
- (newpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #asm)
- (
- (set #aincpath (askdir
- (prompt #t_aincpath)
- (help (cat #t_aincpathhelp @askdir-help))
- (default #incpath)
- ))
-
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #fd)
- (
- (if (not (exists #fdpath (noreq)))
- (
- (set #fdpath (tackon #incpath "fd/"))
- ))
- (set #fdpath (askdir
- (prompt #t_fdpath)
- (help (cat #t_fdpathhelp @askdir-help))
- (default #fdpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #cgen)
- (
- (set #cincpath (askdir
- (prompt #t_cincpath)
- (help (cat #t_cincpathhelp @askdir-help))
- (default #incpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #e)
- (
- (set #emodpath (askdir
- (prompt #t_emodpath)
- (help (cat #t_emodpathhelp @askdir-help))
- (default #emodpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #ade)
- (
- (set #adeincpath (askdir
- (prompt #t_adeincpath)
- (help (cat #t_adeincpathhelp @askdir-help))
- (default #adeincpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #sas)
- (
- (set #sasincpath (askdir
- (prompt #t_sasincpath)
- (help (cat #t_sasincpathhelp @askdir-help))
- (default #sasincpath)
- ))
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
-
- (if (bitand #devfiles #storm)
- (
- (set #stormincpath (askdir
- (prompt #t_stormincpath)
- (help (cat #t_stormincpathhelp @askdir-help))
- (default #stormincpath)
- ))
- ))
- ))
-
-
- ;******************************************************************************
- ;**** Install *****************************************************************
- ;******************************************************************************
-
-
- ;**
- ;** Install the prefs program
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #parts #prefs)
- (
-
- ; No version checking, so user can change gui version
-
- (copyfiles
- (help (cat #t_prefspathhelp @copylib-help))
- (prompt #t_installing "AHI")
- (source (tackon "User/Prefs" #prefssrc))
- (dest #prefspath)
- (newname "AHI")
- (confirm)
- )
- (protect (tackon #prefspath "AHI") "+e")
-
-
- (if (= #icon #icon_std)
- (set #iconsrc "AHI.info")
- )
- (if (= #icon #icon_mwb)
- (set #iconsrc "AHI.MWB.info")
- )
-
- (copyfiles
- (help (cat #t_prefspathhelp @copylib-help))
- (prompt #t_installing "AHI")
- (source (tackon "User/Prefs" #iconsrc))
- (dest #prefspath)
- (newname "AHI.info")
- (confirm)
- (noposition)
- )
-
- (set @default-dest #prefspath)
- ))
-
- ;**
- ;** Install the audio handler
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #parts #audio)
- (
- (copylib
- (help (cat #t_lpathhelp @copylib-help))
- (prompt #t_installing "AHI-Handler")
- (source "User/L/AHI-Handler")
- (dest #lpath)
- (confirm)
- )
- (protect (tackon #lpath "AHI-Handler") "+e")
-
- (copylib
- (help (cat #t_dosdevpathhelp @copylib-help))
- (prompt #t_installing "AUDIO")
- (source "User/Devs/DOSDrivers/AUDIO")
- (dest #dosdevpath)
- (confirm)
- )
-
- (if (= #icon #icon_std)
- (set #iconsrc "AUDIO.info")
- )
- (if (= #icon #icon_mwb)
- (set #iconsrc "AUDIO.MWB.info")
- )
-
- (copyfiles
- (help (cat #t_dosdevpathhelp @copylib-help))
- (prompt #t_installing "AUDIO")
- (source (tackon "User/Devs/DOSDrivers" #iconsrc))
- (dest #dosdevpath)
- (newname "AUDIO.info")
- (confirm)
- (noposition)
- )
-
- (set @default-dest #lpath)
- ))
-
- ;**
- ;** Install the user documentation
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #parts #userdoc)
- (
- (copyfiles
- (help (cat #t_userdocpathhelp @copylib-help))
- (prompt #t_installing "ahi.guide")
- (source "User/Help/ahi.guide")
- (dest #userdocpath)
- (infos)
- (noposition)
- )
-
- (set @default-dest #userdocpath)
- ))
-
-
- ;**
- ;** Install ahi.device, AddAudioModes and drivers
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #parts #system)
- (
-
- ;** ahi.device
- (copylib
- (help (cat #t_ahidevhelp @copylib-help))
- (prompt (cat #t_installing "ahi.device" #ver68k))
- (source (cat "User/Devs/ahi.device" #ver68k))
- (dest #devspath)
- (newname "ahi.device")
- (confirm)
- )
-
- ;** AddAudioModes
- (copylib
- (help (cat #t_cpathhelp @copylib-help))
- (prompt #t_installing "AddAudioModes")
- (source "User/C/AddAudioModes")
- (dest #cpath)
- (confirm)
- )
- (protect (tackon #cpath "AddAudioModes") "+e")
-
- ;** Drivers
-
- (if (bitand #drivers #delfina)
- (P_INSTDRIVER "delfina.audio" "DELFINA")
- )
- (if (bitand #drivers #filesave)
- (P_INSTDRIVER "filesave.audio" "FILESAVE")
- )
- (if (bitand #drivers #melody)
- (P_INSTDRIVER "melody.audio" "MELODY")
- )
- (if (bitand #drivers #paula)
- (P_INSTDRIVER "paula.audio" "PAULA")
- )
- (if (bitand #drivers #prelude)
- (P_INSTDRIVER "prelude.audio" "PRELUDE")
- )
- (if (bitand #drivers #toccata)
- (P_INSTDRIVER "toccata.audio" "TOCCATA")
- )
- (if (bitand #drivers #wavetools)
- (P_INSTDRIVER "wavetools.audio" "WAVETOOLS")
- )
-
- (run (cat (tackon #cpath "AddAudioModes") " REMOVE")
- (prompt #t_runaddmodes)
- (help #t_nohelp)
- (confirm)
- )
-
- (set @default-dest #devspath)
- ))
-
-
- ;**
- ;** Install the catalogs
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #parts (bitor #system #prefs))
- (
- ;** Catalogs
- (if (bitand #languages #dansk)
- (P_INSTCATALOG #t_dansk)
- )
- (if (bitand #languages #deutsch)
- (P_INSTCATALOG #t_deutsch)
- )
- (if (bitand #languages #español)
- (P_INSTCATALOG #t_español)
- )
- (if (bitand #languages #français)
- (P_INSTCATALOG #t_français)
- )
- (if (bitand #languages #greek)
- (P_INSTCATALOG #t_greek)
- )
- (if (bitand #languages #íslenska)
- (P_INSTCATALOG #t_íslenska)
- )
- (if (bitand #languages #italiano)
- (P_INSTCATALOG #t_italiano)
- )
- (if (bitand #languages #nederlands)
- (P_INSTCATALOG #t_nederlands)
- )
- (if (bitand #languages #norsk)
- (P_INSTCATALOG #t_norsk)
- )
- (if (bitand #languages #polski)
- (P_INSTCATALOG #t_polski)
- )
- (if (bitand #languages #português)
- (P_INSTCATALOG #t_português)
- )
- (if (bitand #languages #srpski)
- (P_INSTCATALOG #t_srpski)
- )
- (if (bitand #languages #suomi)
- (P_INSTCATALOG #t_suomi)
- )
- (if (bitand #languages #svenska)
- (P_INSTCATALOG #t_svenska)
- )
- (if (bitand #languages #ÃeÓtina)
- (P_INSTCATALOG #t_ÃeÓtina)
- )
- ))
-
- ;**
- ;** Install the autodocs
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #devdocs)
- (
- (if (bitand #parts #a-developer)
- (set #pattern "~(#?sub#?)"))
-
- (if (bitand #parts #d-developer)
- (set #pattern "(#?sub#?)"))
-
- (if (and (bitand #parts #a-developer) (bitand #parts #d-developer))
- (set #pattern "#?"))
-
- (makedir #devdocspath)
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingdocs )
- (source "Developer/docs/")
- (dest #devdocspath)
- (pattern #pattern)
- (confirm average)
- (infos)
- (noposition)
- )
-
- (set @default-dest #devdocspath)
- ))
-
- ;**
- ;** Install the include files
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #fd)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/FD")
- (dest #fdpath)
- (all)
- )
-
- (set @default-dest #fdpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #asm)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/include/Asm")
- (dest #aincpath)
- (all)
- )
- (set @default-dest #aincpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #cgen)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/C")
- (dest #cincpath)
- (all)
- )
-
- (set @default-dest #cincpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #e)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/E")
- (dest #emodpath)
- (all)
- )
-
- (set @default-dest #emodpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #ade)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/ADE")
- (dest #adeincpath)
- (all)
- )
-
- (set @default-dest #adeincpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #sas)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/SAS")
- (dest #sasincpath)
- (all)
- )
-
- (set @default-dest #sasincpath)
- ))
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #storm)
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingincs)
- (source "Developer/Include/Storm")
- (dest #stormincpath)
- (all)
- )
-
- (set @default-dest #stormincpath)
- ))
-
- ;**
- ;** Install the examples
- ;**
-
- (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
- (if (bitand #devfiles #source)
- (
- (if (bitand #parts #a-developer)
- (
- (makedir (tackon #srcpath "examples/"))
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingsrc)
- (source "Developer/examples")
- (dest (tackon #srcpath "examples/"))
- (all)
- )
- ))
- (if (bitand #parts #d-developer)
- (
- (makedir (tackon #srcpath "drivers/"))
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingsrc)
- (source "Developer/drivers")
- (dest (tackon #srcpath "drivers/"))
- (all)
- )
- (makedir (tackon #srcpath "support/"))
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingsrc)
- (source "Developer/support")
- (dest (tackon #srcpath "support/"))
- (all)
- )
- ))
- (if (bitand #parts (bitor #a-developer #d-developer))
- (
- (copyfiles
- (help @copylib-help)
- (prompt #t_installingsrc)
- (source "")
- (dest #srcpath)
- (pattern "(COPYRIGHT|HISTORY|VERSION|ahi.readme)#?")
- )
- ))
-
- (set @default-dest #srcpath)
- ))
-
-
-
-
- (complete 100)
- (exit)
-